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Section I 


Introduction 


This update describes the new Version 4.1 features of the Microsofte FORTRAN 
Optimizing Compiler. These features include: 


¢ OS/2 system support. With FORTRAN Version 4.1, you can write programs 
that run under OS/2, DOS Version 3.0 (or higher), or both operating systems. 


@ Enhanced FL. You can now use an environment variable to specify frequently 
used FL options. The new version of FL also lets you specify libraries 
anywhere on the command line and do overlays without a separate link step. 
The FL command also includes switches for compiling and linking under OS/2. 


© Extended control over default libraries. An extension to the /NOD option lets 
you specify that a particular default library not be searched during linking. 


Note 


Microsoft documentation uses the term “OS/2” to refer to the OS/2 systems— 
Microsoft Operating System/2 (MS@ OS/2) and IBM@ OS/2. Similarly, the term 
“DOS” refers both to the MS-DOS@ and PC-DOS operating systems. The name of 
a specific operating system is used when it is necessary to note features that are 
unique to that system. 


The remainder of this update is divided into the following sections: 


® Section 2, “Setting Up FORTRAN,” describes how to use the SETUP program 
and the LIBBUILD batch file to set up FORTRAN to run under OS/2 or DOS. 


® Section 3, “Using FL,” tells you how to use the new FL features and describes 
using FL to compile programs on a floppy-disk system. 


e¢ Section 4, “Linker Options,” describes how to make the linker avoid searching a 
default library by using an extension to the /NOD option 


¢ Section 5, “OS/2 Support,” describes how to compile and link a program under 
OS/2. There is also information about how to bind a program so that it runs 
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under either OS/2 or DOS. In addition, the section tells you about limitations on 
using threads and about changes in the language when used under OS/2. 


¢ Section 6, “Error Messages,” lists new error messages and warnings. 


Note 


Where the update conflicts with the Microsoft FORTRAN Optimizing Compiler 
User’s Guide, the Microsoft FORTRAN Optimizing Compiler Language Reference, 
or the Version 4.01 README.DOC file, information in the update supersedes 
that in the manuals or file. 


There may be a README.DOC file on your Version 4.1 distribution disks that 
contains information unavailable when this update was printed. 
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Section 2 
Setting Up FORTRAN 


There are two ways to install FORTRAN 4.1: by using the SETUP program and by 
using the LIBBUILD batch file. The SETUP program automatically installs the com- 
piler, creates the required libraries, and copies additional utilities. The LIBBUILD 
batch file lets you build any combined library on a hard-disk system without using 
SETUP. LIBBUILD can also be used to create libraries on systems that have prob- 
lems running SETUP because they do not have enough free space for environment 
variables. 


Note 
See the PACKING.LST file for a complete list of files on the distribution disks. 


2.1 Using SETUP 


The information in this section supplements the directions for using SETUP in Section 
2.4, “The SETUP Program,” in the Microsoft FORTRAN Optimizing Compiler User's 
Guide. SETUP now includes several additional screens for setting up libraries for use 
with OS/2, DOS, or both. The compiler itself is shipped as a bound application and 
runs under either OS/2 or DOS Version 3.0 or higher. 


The following parts of Section 2.4, “The SETUP Program,” in the user’s guide are no 
longer correct: 


¢ MOUSE.SYS is not shipped with Version 4.1. The setup program gives you the 
option of instaling MOUSE.COM instead. 


® Floppy disk setup is supported only for DOS. 

© The suggested 5-1/4" and 3-1/2" disk layouts for dual floppy systems do not 
work with Version 4.1 of the compiler. See the fille FLOPSET.DOC on your dis- 
tribution disks for the current floppy disk setup. 


® The names of the distribution disks as used in the documentation are incorrect. 
The SETUP program prompts you for the correct disks. 
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® Version 4.1 includes the Microsoft Editor, which is not installed by SETUP. The 
editor disk has a separate setup program. 


Sections 2.1.1 and 2.1.2 in this update discuss the new SETUP screens and describe 
new library naming conventions used in Version 4.1 to distinguish real-mode libraries 
used under DOS and real-mode OS/2 from libraries used under protected-mode OS/2. 
You only need to know the new naming conventions if you are writing programs for 
both DOS and OS/2. If you set up for a single operating system, SETUP creates librar- 
ies using the old default names (see “Library Names” below for a description of the de- 
fault names). 


Section 2.1.3 in this update discusses deleting intermediate libraries left on the disk if 
you prematurely halt SETUP. The final section describes how to create libraries com- 
patible with FORTRAN Versions 3.2 and 3.3. 


2.1.1 Setting Up for DOS or OS/2 Systems 


SETUP creates two kinds of libraries—treal-mode libraries and protected-mode librar- 
ies. Real-mode libraries can be used for DOS programs and programs that run in the 
OS/2 compatibility box (real-mode OS/2). Protected-mode libraries can be used for 
programs running under protected-mode OS/2, or they can be used in protected-mode 
programs that are bound so the program runs in both real and protected modes. Only 
protected-mode OS/2 programs can take full advantage of OS/2 system features. 


When you run SETUP, the program asks whether you want to set up for DOS or OS/2. 
If you specify setting up for DOS, SETUP creates real-mode libraries using default 
names. These libraries are the default libraries selected by the FL command when you 
compile your program. 


Note 


You can only do floppy disk setup for DOS. SETUP does not support floppy-disk 
setup for OS/2 because OS/2 cannot be run on a dual-floppy system. 


If you specify setting up for OS/2, SETUP asks you whether you want to set up for 
real-mode, protected-mode, or both. If you set up for either real mode or protected 
mode, but not both, SETUP creates a single set of libraries having default names that 
are automatically selected by FL. 


Choosing to set up for both real mode and protected mode creates two sets of librar- 
ies—one set for real mode and one set for protected mode. If you choose this option, 
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you must specify which set of libraries to use during linking. See Section 3.1, “Specify- 
ing Libraries,” for directions about selecting the correct set of libraries. 


2.1.2 Library Names 


If you set up for DOS, or protected-mode or real-mode OS/2 (but not both), SETUP 
creates libraries that are automatically searched during linking. SETUP gives these li- 
braries names based on the memory model and math option they use. The names have 
the following form: 


memory LIBFOR arith .LIB 


The memory argument 1s a single character indicating the memory model: L for large 
model, M for medium model, or H for huge model. The arith argument is a single 
character indicating the math option: 7 for math coprocessor arithmetic, A for arith- 
metic using the alternate-math package, or E for emulated coprocessor arithmetic. For 
example, the library LLIBFORA.LIB uses the large memory model and the alternate 
math package. 


When you select set up for both OS/2 modes, SETUP creates libraries with names that 
have the following form: 


memory LIBF arith system .LIB 


The memory and arith arguments are the same as in the single operating system names. 
The system argument is a single character indicating the operating system mode—R. 
for OS/2 real-mode (real-mode libraries can also be used under DOS) and P for OS/2 
protected-mode. A library for protected-mode OS/2 using the large memory model and 
the alternate-math package would have the name LLIBFAP.LIB. 


Note 


If you set up for both protected- and real-mode OS/2, you must use one of the 
command-line library options (/Lr, /Lp, or /Lc) to specify the library type when 
compiling with FL. See Section 3.1, “Specifying Libraries,” in this update. 


2.1.3 Intermediate Libraries 


After creating a final library, SETUP deletes intermediate libraries it has created. 
However, if you stop SETUP before the library build is complete, it may leave inter- 
mediate libraries on the disk. If you must terminate SETUP before it is finished, you 
must delete the intermediate libraries yourself. 
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2.1.4 Compatibility with Microsoft FORTRAN Versions 3.2 and 3.3 


If you select compatibility with Microsoft FORTRAN Versions 3.2 and 3.3 when run- 
ning the SETUP program, SETUP builds a library that includes the appropriate math 
library for the math options you select. The resulting library, x_LIBFORx.LIB, con- 
tains one of the math libraries, either MATH.LIB (for the emulator or 8087/80287 
math package) or ALTMATH.LIB (for the alternate-math package). SETUP also co- 
pies the FORTRAN.LIB library to your library directory. You must use FOR- 
TRAN.LIB when you link programs using FORTRAN Version 3.2 or Version 3.3 ob- 
ject files or libraries. You must not use the Microsoft FORTRAN Version 3.2 or 3.3 
compiler or library files with Microsoft FORTRAN Version 4.1. The required library 
routines are already in the Version 4.1 library. 


If you are linking a Microsoft FORTRAN Version 3.2 object file or library you must 
use the /Gr option on the FL command line when compiling. See Chapter 3, “Compil- 
ing: The FL Command,” in the Microsoft FORTRAN Optimizing Compiler User’s 
Guide. 


Note 


Object files and libraries of Microsoft FORTRAN Version 3.2 and 3.3 cannot be 
used under OS/2. 


2.2 Using LIBBUILD 


To build any combined library on a hard-disk system without running SETUP, use the 
LIBBUILD.BAT batch procedure file from your disks. This batch file provides a 
faster way of building a single combined library. It can also be used on systems having 
problems running SETUP because the system uses a large amount of environment 
space. 


LIBBUILD lets you build combined libraries for either DOS or OS/2 by using a com- 
mand-line option. 


Check the following before running LIBBUILD: 


1. Be sure the necessary library components are on the current drive or in the 
current directory. 


2. Make certain that the LIBBUILD.BAT, LIB.EXE, and COMMAND.COM 


files are in the current directory or in the path described by the PATH 
environment variable. 
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3. Check the amount of available disk space. The largest combined library requires 
approximately 201 kilobytes (K) of disk space. 


m@ Syntax 


LIBBUILD model math mode error C v32-33 libpath prompt info 


All arguments to LIBBUILD are required and are position dependent. Arguments may 
be in uppercase or lowercase letters. The following list describes each argument: 


Argument 


model 


math 


mode 


error 


y32-33 


libpath 


prompt 


info 


Description 


M if you are building a medium-model library, or L if you 
are building a large-model library. 


7 for a library supporting the 8087/80287 math package, E 
for a library supporting the emulator package, or A for a 
library supporting the alternate math package. 


R if you are making an DOS library or OS/2 real-mode 
library, or P for an OS/2 protected-mode library. 


Y if you want to include text for run-time errors, or N if you 
want to leave out error-message text. 


Y if you want to link Microsoft C modules and Microsoft 
FORTRAN modules with the library, or N if you do not. 


Y if you want to be able to link Versions 3.2 and Version 3.3 
modules with the library, or N if you do not. 


The path in which you are installing the library. The path 
must end with a backslash (\). 


Y if you want LIBBUILD to echo the arguments you have 
chosen and give you a chance to abort, or N if you do not 
want LIBBUILD to echo the arguments. 


Y if you want LIBBUILD to create an information file that 
lists the contents of the library, or N if you do not. This infor- 
mation file indicates whether or not the library supports C 
modules or Version 3.2 or Version 3.3 compatibility. In addi- 
tion, the file indicates whether or not it contains error- 
message text, as well as the creation date, the size, and other 
options that you give LIBBUILD. The file has the same 
base name as the library but has an extension of .INF. The 
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LIBBUILD batch file places the information file in the loca- 
tion specified by the libpath argument. 


LIBBUILD creates libraries with non-default names that include a character specify- 
ing the operating system mode. If you have set up for DOS or a single mode of OS/2, 
you must rename the libraries you create so they have the corresponding default name. 
See Section 2.1.2, “Library Names,” for information about library naming rules. 


m@ Examples 
LIBBUILD L 7 R Y NN C:\MYLIBS\ N Y 


The command line above builds the same library as the SETUP program with all de- 
faults chosen: large memory model, 8087/80287 math package, DOS operating system, 
run-time errors included, and no support for C modules or Version 3.2 or Version 3.3 
FORTRAN modules. The library (LLIBF7R.LIB) is installed in the \MYLIBS 
directory. No LIBBUILD parameters are echoed, but an information file is generated. 


LIBBUILD MA PN Y N C:\TEST\LIBS\ Y N 


The command line above builds an OS/2 protected-mode medium-model library 
supporting the alternate-math nackage that contains no error-message text, can be 
linked with C modules, and cannot be linked with Version 3.2 or Version 3.3 FOR- 
TRAN modules. The library (MLIBFAP.LIB) is installed in the \TEST\LIBS 
directory. LIBBUILD parameters are echoed, but no information file is generated. 
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Using FL 


This section describes the new, Version 4.1 features of the FL command. With Version 
4.1 you can now do the following: 


e Specify libraries with the new command-line switches 

e Bind with the new command-line switches 

e Specify frequently used options with the FL environment variable 
© Mix .LIB and .DEF files on the Scrmana line 

© Specify program overlays 


Each of these features is discussed in a separate section below. The final two sections 
provide additional information about other FL switches and describe compiling on 
floppy disk systems. 


3.1 Specifying Libraries 


If you set up the compiler to use DOS, or real-mode or protected-mode OS/2 (but not 
both modes), you do not need to specify a run-time library on the FL command line— 
the appropriate default library is selected automatically. 


If you choose to set up the compiler for both real- and protected-mode OS/2, you must 
use one of the library options to tell FL whether to use real-mode or protected-mode 1i- 
braries. To build an OS/2 real-mode application, use the /Lr command-line option. 
(You can also use /Le to specify real-mode libraries. The /Le option has the same ef- 
fect as /Lr.) To build an OS/2 protected-mode program, use the /Lp command-line op- 
tion. For example, the following command compiles and links AVERAGES .FOR for 
use under OS/2 real mode (OS/2 real-mode programs also run under DOS): 


FL /Lr AVERAGES.FOR 


To compile and link the same program to run in protected-mode OS/2, you use a com- 
mand like the following (assuming you are using the new default library names): 


FL /Lp AVERAGES .FOR 
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You may use a hyphen (-) instead of a slash in a command-line option (in other words, 
-Lp is the same as /Lp). 


A .DEF file can only be specified for OS/2 protected-mode programs. Using a .DEF 
file on a command line including the /Lr (real-mode libraries) option produces the fol- 
lowing error message: .DEF files supported in protected mode only. 
See the Microsoft CodeView and Utilities Update for more information about .DEF 
files. 


If you write most of your programs for one operating system, and only occasionally 
write programs for the other, you can use the FL environment variable to set the li- 
brary option. For example, setting the FL environment variable as follows lets you au- 
tomatically compile and link using the real-mode libraries for DOS or real-mode OS/2: 


SET FL = /Lr 


With FL set as above, you could compile and link a protected-mode OS/2 program by 
specifying the protected-mode library option on the command-line (command-line op- 
tions override options specified by the FL environment variable): 


FL /Lp AVERAGES .FOR 
See the next section for more information about setting the FL environment variable. 


Rather than use the FL variable, you can give the libraries you regularly use the corre- 
sponding default name so the library will automatically be searched. You can then 
specify libraries for the other mode by using the appropriate library option. For ex- 
ample, if you always use the protected-mode library LLIBF7P.LIB, rename the li- 
brary, giving it the corresponding default name of LLIBFOR7.LIB. If you needed to 
use the real-mode library, LLIBF7R.LIB, you could use the /Lr switch. 


3.2 Binding from FL 


You can use FL to create a bound program (a program that runs in either real or pro- 
tected mode) by using the /Fb option. For example, the following command creates a 
bound executable file, BESSELB .EXE, from the source file BESSEL. FOR: 


FL /Lp /FOBESSELB BESSEL,FOR 


Specifying a name causes FL to create a protected-mode .EXE file (BESSEL.EXE) in 
addition to the bound program (BESSELB. EXE). 


When you omit the extension for the bound program from the name, the bound pro- 
gram is automatically given the .EXE extension. If you omit the name altogether, the 
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bound program has the same base name as the source file, but has a .EXE extension. 
No protected-mode program is created when you omit the name. Using the /c (compile 
only) option overrides the /Fb option. 


In order for the /Fb option to work correctly, the files DOSCALLS.LIB, 
APILMR.OBJ, and API.LIB must be in the current directory or in one of the directo- 
ries indicated by the LIB environment variable. 


The file APILMR.OBJ is always bound with the program unless the FL command in- 
cludes the medium-memory-model switch, /AM. If you are doing mixed-language pro- 
gramming using the medium memory model and your routines allocate both near and 
far memory, you cannot bind your program through FL. Use the BIND command 
directly and include the /n switch and APILMR.OBJ. See Section 5.2 for more infor- 
mation about APILMR.OBJ; see the Microsoft Codeview and Utilities Update for in- 
formation about the BIND command. 


If you use the /Fm (map) switch with the /Fb switch, the resulting map file contains 
the map from BIND, rather than the linker map. A map file is produced only if the /Fm 
switch is used. 


If you are binding mixed-language executable files that have non-Family API calls, 
you must use the BIND command directly and include the /n switch. 


See Section 4.2, “Binding Programs to Run Under Both DOS and OS/2,” for more in- 
formation about binding and using the BIND utility. 


m = =6Examples 
FL /FbQSORTB /Ox /Lp QSORT.FOR 


The command creates a protected-mode executable file, QSORT.EXE, as well as a 
bound executable file, QSORTB.EXE. No map file is created, and APILMR.OBJ is 
included in the bound application because the default memory model is large. 


FL /Ox /c /Fb QSORT.FOR 


This command creates only an object file (QSORT.OBJ) because the compile-only op- 
tion (/c) overrides the /Fb option. 


FL /AM /Ox /Fb /Fm QSORT.FOR 


Omitting the name from the /Fb option creates only a bound executable program, 
QSORT.EXE. This command also creates a map file from the binding process. 
APILMR.OBJ is not included in the bound program because medium memory model 
was specified by the /AM option. 
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3.3 Specifying Options with the FL Environment Variable 


The FL environment variable provides a convenient way to specify frequently used op- 
tions and files without entering the options and files on the command line. If the FL en- 
vironment variable exists, the FL program adds the options specified by the variable to 
the command line when you compile your program. 


To set the variable, use the SET command. It 1s usually easiest to add the SET com- 
mand to your AUTOEXEC file, rather than entering the command each time you start 
your machine. For example, the following SET command sets FL so that programs are 
compiled and linked for use with the Microsoft CodeView® debugger: 


SET FL = /Zi /Od 


Most information specified in the FL variable is processed before any options 
specified in the command line. /LINK options are the exception. The /LINK options 
specified in the FL variable are processed after other options on the command line, but 
before /LINK options specified on the command line. For example, if the FL environ- 
ment-variable is set to /Zi /Od /LINK /T, then the following two commands are 
equivalent because the environment-variable options are combined with the command- 
line options: 


FL MAINPGM.FOR MODULE1.FOR /LINK /NOP 


FIL /Zi /Od MAINPGM.FOR MODULE1.FOR /LINK /I /NOP 


3.4 Mixing .LIB and .DEF Files 


You can now mix .LIB and .DEF files on the command line with other options and 
files. FL sorts through the file names and sends them in the correct order to the linker. 
For example, the following command compiles the program and links it using the indi- 
cated .LIB and .DEF files: 


FL /Lp MAIN.FOR MYDEF.DEF MYLIB.LIB 


3.5 Specifying Overlays 


The FL program included with Version 4.1 lets you specify program overlays on the 
command line. Overlays let different modules use the same area of memory. When 
modules are overlaid, copies of both modules are kept on disk, but only one module is 
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in memory. When the program needs the other module, that module is read into 
memory. See Chapter 12, “Linking Object Files with LINK,” in the Microsoft 
CodeView and Utilities manual for more information about overlays. 


You specify an overlay on the FL command line by enclosing the modules to be over- 
laid in parentheses. For example, the following command line tells FL that the mod- 
ules OVER1 . FOR and OVER2 . FOR are to be overlaid: 


FL MAIN.FOR (OVER1.FOR OVER2.FOR) 


3.6 FL Command-Line Options 


This section provides additional information about FL floating-point options, and the 
/AH (huge memory), /FPi87 (in-line math-coprocessor code), /NOI (no ignore case), 
and /Tf (source file) options. 


3.6.1 Floating-Point Options 


By default, programs compiled with Version 4.1 of Microsoft FORTRAN use the 
8087/80287 math package. If you do not have an 8087 or 80287 coprocessor installed, 
you must use a floating-point option that specifies the emulator or alternate-math pack- 
age on the FL command line. You may want to add these options to your FL environ- 
ment variable. See Section 8.3 of the Microsoft FORTRAN Optimizing Compiler 
User's Guide for more information on selecting floating-point options. 


3.6.2 /AH Option: Huge Memory Model 


If you run out of memory when compiling with the huge memory model (that is, after 
specifying the /AH option on the FL command line), try declaring arrays and common 
blocks exceeding 64K as HUGE (use the HUGE attribute). Then recompile with the 
large (default) memory model. See Section 9.4 of the Microsoft FORTRAN Optimizing 
Compiler User's Guide for more information about selecting and adjusting the stand- 
ard memory models. 


3.6.3 /FPi87 Option: Installing In-Line 8087 Instructions 


If your program uses the /FPi87 option and will always be run on a system with a co- 
processor, you can speed up your program by assembling and linking your program 
with the following code: 
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PUBLIC FIARQQ, FICRQQ, FIDROQQ, FIEROQQ, FISROQ, FIWRQO 
PUBLIC FJARQQ, FUCRQQ, FUSRQQ 


FITARQO EQU 
FICROQ EQU 
FIDRQO EQU 
FIERQO BQU 
FISRQOQ EQU 
FIWROQQ EQU 
FJARQQ EQU 
FJCRQQ BQU 
FISROO EQU 


oceooo0o 00 0 


END 


The Microsoft FORTRAN Compiler does not generate true in-line 8087/80287 code 
when you use the /FPi87 option. Instead, the compiler generates software interrupts to 
library code. This library code fixes up each interrupt to use either the emulator or the 
coprocessor, as appropriate. Assembling and linking the code above speeds up your 
program by eliminating the fix-up processing. However, the program runs only if a co- 
processor is present. 


3.6.4 /NOI Option: Ignoring Case 


FL no longer tells the linker to use the /NOI option by default. You must specify this 
option if you want to use it by including /LINK /NOI on the command line or in the 
environment variable. 


3.6.5 /Tf Option: Specifying a Source File 


If a file on the FL command line does not have an extension, FL automatically adds 
the extension .FOR. To compile a FORTRAN source file, you must either specify the 
“FOR extension or use the /Tf option to specify a nonstandard FORTRAN file-name 
extension. For example, the following FL command could be used to compile a source 
file named DEMO.F: 


th. fe 7VE demo<t 
In this example, /c specifies compiling only (no linking). 


If you use the /Tf option to compile your program, you must select the FORTRAN ex- 
pression evaluator explicitly when using the CodeView debugger. CodeView only uses 
the FORTRAN evaluator as the default when the source file has a .FOR extension. 
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3.7 Compiling on a Floppy-Disk System 


Sections 2.4.4 and 2.4.5 of the Microsoft FORTRAN Optimizing Compiler User’s 
Guide describe the basic procedure for compiling and linking on a floppy-disk system. 
The following paragraphs give additional information. 


Note 
Floppy-disk setup can only be used under DOS. 


To compile and link programs on a floppy-disk system, you must use the memory- 
model and floating-point command-line options required by the library on the Link 
disk. (Refer to Table 3.1 in Section 3.3.1 of the user’s guide for a list of the libraries 
selected by each combination of options.) If the linker finds the correct library on the 
Link disk during linking, then linking is completed and an executable file is created on 
the drive containing your source files. (If you are linking with Version 3.2 or 3.3 object 
files, you must also provide the Compatibility disk containing FORTRAN.LIB and, 
optionally, the Version 3.2 or 3.3 object files. In this case, the executable file is created 
on the disk last inserted in the drive containing your source file.) 


If the linker does not find the correct library on the Link disk, you can either recompile 
using command-line options that match the library on the Link disk or build a new li- 
brary to match the options you specified. A third alternative is to specify a library 
name other than the default on the command line (refer to Section 8.3.1 of the user’s 
guide, “Library Considerations for Floating-Point Options,” for more information). 


You may find it useful to generate several versions of the Link disk, each containing a 
unique library for the options you most commonly use. 
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Section 4 
Linker Options 


The version of the linker included with Microsoft FORTRAN Version 4.1 includes an 
extension to the /NOD (ignore default libraries) option. In previous versions, /NOD 
made the linker avoid searching any library specified in the object file. You can now 
use the option to tell LINK not to search a specific default library by including the 
name after a colon (:). For example, the following command forces the linker not to 
search the LLIBFORA.FOR library (the object file contains the default library name): 


LINK /NOD:LLIBFORA.LIB MAIN.OBJ,,,LLIBF7.LIB; 
The . LIB extension is optional. 


You must use the /NOD option if you have set up for dual-mode OS/2 and you want to 
link using the LINK command as a separate step. In this case, follow these steps: 


1. Figure out the default library name. (See Section 2.1.2 for a description of how 
libraries are named.) 


2, Find the equivalent real- or protected-mode library. 
3, Compile the program with FL using the /c option. 
4. Link using the LINK command. 


5. Specify the required library in the library list and use the /NOD switch to 
override the default library search. 


Suppose that you have set up FORTRAN for dual-mode OS/2, medium memory 
model, and coprocessor math, and that you want to link with the protected-mode li- 
brary using the LINK command. The default library name is MLIBFOR7.LIB 
because you have chosen the medium memory model and coprocessor math. The corre- 
sponding protected-mode library is MLIBF7P.LIB. To compile and link, you would 
use the following commands: 


FL /c AVERAGES .FOR 
LINK /NOD:MLIBFOR7.LIB AVERAGES,,,MLIBF7P; 


The /c switch tells FL only to compile the program. Specifying the switch 
/NOD :MLIBFOR7 .LIB overrides the search of the default library, and adding 
MLIBF’7P to the list of libraries forces a search of the equivalent protected-mode 


library. 
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Section 5 
OS/2 Support 


This section briefly describes compiling and linking programs to run under OS/2, bind- 
ing programs so they run under either DOS or OS/2, restrictions on using OS/2 
threads, and language differences between OS/2 and DOS versions of the language. 
For detailed information about developing programs for OS/2, see the Microsoft Oper- 
ating System/2 Programmer’s Guide and the Microsoft CodeView and Utilities Update. 


5.1 Compiling and Linking under OS/2 


If you have set up FORTRAN for programming only under OS/2, you do not need to 
use any additional options to compile and link with the FL command. Use FL just as 
you would under DOS. 


When you set up FORTRAN to compile under both real and protected-mode, you must 
use one of the library options when compiling and linking with FL. Specifying the /Lr 
option selects the real-mode libraries so your program runs under DOS or in the OS/2 
compatibility box. The /Lp option selects the OS/2 protected-mode versions of the 
libraries and creates a program that runs only in protected mode under OS/2. For ex- 
ample, to compile BESSEL.FOR for OS/2 protected mode, you would use the follow- 
ing command: 


FL /Lp BESSEL.FOR 


If, when you set up for DOS or a single OS/2 mode, you give your library a name 
other than the default name, you must use the /LINK option to override the default 
name and use the new library. For example, if the default library is LLIBFORA.LIB 
and your library name is MYLIBLA.LIB, then you would compile the program 
BESSEL. FOR with the following command line: 


FL BESSEL.FOR /link /NOD:LLIBFORA.LIB MYLIBLA.LIB 


Note 


You must use the OS/2 (protected-mode) version of the Code View debugger, 
CVP.EXE, to debug protected-mode programs. 


Update-19 


Microsoft FORTRAN 4.1 Update 


5.2 Binding Programs to Run Under Both DOS and OS/2 


You can create programs that run under DOS or in real and protected modes under = 
OS/2 by compiling and linking your program for protected mode and binding it. Bind- 

ing resolves references to OS/2 dynamic link libraries so the program runs in both 

modes and under either operating system. 


To bind a program, first compile and link it as a protected-mode program. Then, use 
the BIND command. For example, the following commands compile, link, and bind 
BESSEL. FOR: 


FL /Lp BESSEL.FOR 
BIND BESSEL APILMR.OBJ C:\LIB\DOSCALLS.LIB C:\LIB\API.LIB 


You must include the full path to the DOSCALLS . LIB and API .LIB files in the com- 
mand line. 


The APILMR.OBJ file is required only if you are using the large memory model, or 
you are using routines you have written that make requests for both far and near 
memory. | 


Binding with APILMR.OBJ changes how much memory your program gets when it 
starts in real-mode. Because OS/2 normally gives your program only the memory it ac- 
tually uses, the bound program gets only the memory it actually uses even when run in 
real-mode. This causes the program to fail if it makes both near and far memory re- 
quests in real mode. Binding with APILMR.OBJ averts this difficulty by allocating a 
full segment for your program’s data (DGROUP), rather than only the memory re- 
quired at startup. 


If you write your own routines that use OS/2 system functions and you want to bind 
the resulting program, you must use only a subset of the API (Application Program In- 
terface) functions known as Family API functions. See the Microsoft Operating Sys- 
teml2 Programmer's Reference for a list of Family API functions. 


See the Microsoft CodeView and Utilities Update for complete information about the 
BIND command. 


Note 


Bound programs cannot be debugged using the CodeView debugger. However, 
you can use the OS/2 version of CodeView, CVP.EXE, to debug a protected-mode 
version of the program. 
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5.3 Using Threads 


Because FORTRAN Version 4.1 library routines are not reentrant, FORTRAN routines 
that use library routines cannot directly use threads. You can use threads if your pro- 
gram provides a way for each routine to test whether or not another routine is using the 
library routines. One way to do this is to use a semaphore. See the Microsoft Operating 
System/2 Programmer’s Guide for information about semaphores. 


5.4 OS/2 Protected-Mode Language Differences 


The only difference between the OS/2 protected-mode and DOS versions of the lan- 
guage is in the default value of the OPEN statement’s SHARE argument. The default 
value of the SHARE argument is ‘’DENYNONE’ in protected-mode rather than 
’COMPAT’ as under DOS. 
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Section 6 


Error Messages 


This section describes additional warning and error messages not included in Appendix 
E, “Error Messages,” of the Microsoft FORTRAN Optimizing Compiler User’s Guide. 


In the description of run-time-library error messages (Section E.4.1), add EOF to the 
list of possible operations. 


The following list describes the rest of the error message changes: 


Number 


D4005 


D4018 


F2713 


F2842 


F2843 


Error Message 
could not execute ’filename’; please enter new file 
name (full path) or Ctrl-C to quit: 


The compiler cannot find the indicated file in the current directory nor 
in the directories specified by the PATH variable. Enter the correct 
path and file name to continue. 


.DEF files supported in protected mode only 


You used the /Lr (real-mode libraries) option and specified a .DEF file 
on the command line. .DEF files can only be used with protected-mode 
programs. 


iooption : illegal statement label END= (or ERR=) 


An integer number in the range 1 to 99999 must be specified for the 
statement labels following the ERR= and END= input/output options. 
(Compile-time error) 


too many assigned GOTO statements 

Only 256 assigned GOTO statements are allowed in a subprogram. 
(Compile-time error) 

Statement illegal with INTERFACE 


The INTERFACE statement may only be used to declare calls to sub- 
programs. See the entry for the INTERFACE statement in the 
Microsoft FORTRAN Optimizing Compiler Language Reference for 
more information. 
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F4072 insufficient memory to process debugging information 


You specified the /Zi compiler option, but the compiler did not have 
enough memory to store all of the required debugging information. 
(Compile-time warning) 
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